//Fungsi Callback untuk menampilkan Window yang terlihat
function EnumWindowsProc1 (Wnd: HWND; List: TStrings): BOOL; stdcall;
var
  caption: array [0..256] of Char;
begin
  Result := True;
  if GetWindowText  (Wnd, Caption, SizeOf(Caption)-1) <> 0 then
  begin
        if  IsWindowVisible(wnd) then
        begin
                List.AddObject( caption, TObject( Wnd ));
        end;
  end;
end;

//Untuk Window yang tidak terlihat ganti IsWindowVisible(wnd) dengan not IsWindowVisible(wnd)  
